home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / services / editdns.agp < prev    next >
Encoding:
Text File  |  1999-06-17  |  2.3 KB  |  85 lines
  1. <html>
  2. <head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  4. <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper@infopulse.net">
  5. <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
  6. <title>Empty</title>
  7. </head>
  8.  
  9. <body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080">
  10. <%
  11.     if Request.ReqParam("action") = "Commit" Then
  12.         ' Process the DNS settings
  13.         if Request.ReqParam("Enabled") <> "" then
  14.             DNS.Enabled = True
  15.         else
  16.             DNS.Enabled = False
  17.         end if
  18.         if Request.ReqParam("KicksDialer") <> "" then
  19.             DNS.KicksDialer = True
  20.         else
  21.             DNS.KicksDialer = False
  22.         end if
  23.         DNS.RemoteDNS = Request.ReqParam("Remote")
  24.  
  25.         On Error Resume Next
  26.         DNS.Commit
  27.         If Not Err.Number = 0 Then 
  28.             ErrLine = Err.Description
  29.         else
  30.             Response.Redirect("hlpServices.htm")
  31.         End If
  32.     End If
  33. %>
  34.     <p><big><strong><font face="Arial">Edit the DNS service</font></strong></big></p>
  35. <%
  36.     If Not Len(ErrLine) = 0 Then
  37.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  38.     End If
  39. %>
  40.  
  41. <form method="POST" action= "/services/editdns.agp">
  42.     <div>
  43.     <table border="1" cellpadding="0" cellspacing="0" width="60%">
  44.     <tr>
  45.         <td width="50%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  46.             Option
  47.         </font></strong></td>
  48.         <td width="50%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  49.             Value
  50.         </font></strong></td>
  51.     </tr>
  52.     <tr>
  53.         <td width="50%"><strong><font face="Arial">
  54.             DNS Enabled
  55.         </font></strong></td>
  56.         <td width="50%">
  57.             <input type="checkbox" name="Enabled" value="ON" <% if DNS.Enabled then Response.Write("checked") end if%>>
  58.         </td>
  59.     </tr>
  60.     <tr>
  61.         <td width="50%"><strong><font face="Arial">
  62.             DNS kicks dialer
  63.         </font></strong></td>
  64.         <td width="50%">
  65.             <input type="checkbox" name="KicksDialer" value="ON" <% if DNS.KicksDialer then Response.Write("checked") end if%>>
  66.         </td>
  67.     </tr>
  68.     <tr>
  69.         <td width="50%"><strong><font face="Arial">
  70.             Remote DNS
  71.         </font></strong></td>
  72.         <td width="50%">
  73.             <input type="text" size="24" name="Remote" value="<%Response.Write(DNS.RemoteDNS)%>">
  74.         </td>        
  75.     </tr>
  76.     </table></div>
  77. <br>
  78.     <p><input type="submit" name="action" value="Commit"></p>
  79. </form>
  80.  
  81. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  82.  
  83. </body>
  84. </html>
  85.